<!--#include file="Librerias/mssql-ds.dll" -->
<%
seleccion = request.QueryString("select")
opcion = request.QueryString("opcion")
	
	ComboConstruido = "<select name=""var19"" id=""var19"" class=""TextoTam7"" onChange=""cargaAPFaseEtapa(this.id)""><option value="""">-- Seleccione --</option>"
	sSQL = ""
	sSQL = sSQL & " SELECT eta_id, eta_etapa"
	sSQL = sSQL & " FROM _Etapas"
	sSQL = sSQL & " WHERE (eta_estado = 1) AND (eta_clase = "& opcion &")"
	MatrizCombo = MatrixBD(sSQL, 1)
	If VarType(MatrizCombo) = 8  then
		QReg = -1
	Else
		QReg = UBound(MatrizCombo, 2)
	End If
	For i = 0 To QReg
		ComboConstruido = ComboConstruido & "<option value='" & MatrizCombo(0, i) & "'"
		ComboConstruido = ComboConstruido & ">"& MatrizCombo(1, i) &"</option>"
	Next				
	ComboConstruido = ComboConstruido & "</select>"
	response.ContentType = "text/html; charset=iso-8859-1"
	response.write ComboConstruido
%>